********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Titik_Tengah;
(*------------------------------------------------*)
(* Di baca titik P1, P2, Tentukan titik tengahnya *)
(*     dan tampilkan titik tengahnya ke layar     *)
(*------------------------------------------------*)

Uses CRT;
Type
  titik = record
  x:real;
  y:real;
  end;
Var
P1, P2, P3 : Titik;
Begin
Clrscr;
  Writeln ('Mencari Titik Tengah');
  Write   ('Masukan P1.x'); Readln(P1.x);
  Write   ('Masukan P1.y'); Readln(P1.y);
  Write   ('Masukan P2.x'); Readln(P2.x);
  Write   ('Masukan P2.y'); Readln(P2.y);
  P3.x:=  (P1.x+P2.x/2);
  P3.y:=  (P1.y+P2.y/2);
Writeln ('titik tengah adalah :',P3.x:6:2);
Writeln ('titik tengah adalah :',P3.y:6:2);
Readln;
End.